home *** CD-ROM | disk | FTP | other *** search
- @if "%debug%"=="" echo off
-
- mem /u | tfind /c "program" >%tmp%\_loaded.bak
- if errorlevel 1 goto _mema
- goto _nomema
- :_mema
- mem /a | tfind /v "=" >%tmp%\_loaded.bak
- :_nomema
- tfind /v " --" <%tmp%\_loaded.bak >%tmp%\_loaded.tmp
- lmod /l* *[$3]*<%tmp%\_loaded.tmp >%tmp%\_loaded.bak
- xgrep "^*[:u:d-_!@#$^~&`'(){}%%]+*$" <%tmp%\_loaded.bak >%tmp%\_loaded.tmp
- if not "%1"=="" goto _test
- lmod /L* /S* [$1]<%tmp%\_loaded.tmp
- goto _done
- :_test
- tfind "*%1*" <%tmp%\_loaded.tmp >%tmp%\_loaded.bak
- if errorlevel 1 goto _done
- if not "%2"=="" lmod /S* [$1]<%tmp%\_loaded.bak
- for %%i in (%tmp%\_loaded.*) do if exist %%i del %%i >%tmp%\nul
- el! 1
- goto _end
-
- :_done
- for %%i in (%tmp%\_loaded.*) do if exist %%i del %%i >%tmp%\nul
- el! 0
- :_end
-